13100	BB2C
13200	DUMMY 0 0/P2 RHY/A(32////16/)/ B(4./16//8// 16 X 32)/ C(8/16//X 3)*;
13300	END;
13400	TRPT /P2 RHY/8//@A/ 8/16//8//@A/@A/8/16 X 22/8/;
13500	8 X 11/4//8/16 X 28/  8//@B/8 /  4 16 *;
13600	
13700	P3 NOTES/F5/C6/Q(D/C/X 2)/BF5/C6/D/C/BF5/C6/F/@Q/A5/BF/@Q/BF/C6; BAR3
13800	D/C/BF5/C6/BF5/A/C6/  BF5/A/G/BF/A/G/F/A/  G/F/G/A/BF/A/G/F/  G/C;
13900	C6/R/X 2 5/C/D/C/CF/C/CF/A5/C6/  B5/A/B/C6/D/C/B5/A/  B/A/G/A/B/C6/A5/B; BAR 13
14000	C6/D/CF/C/D/CF/C/D/  G5/C/R(C6/BF5/A/BF// A/G/F/G/A/BF/G/A; BAR 17
14100	BF/BS/A/BF)/C6/D/BF5/C6/  D/C/D/EF/D/C/BF5/A/  G/F/G/A/BF/A/BF/G;
14150	A   /FINE*;
14200	
14300	P6 1.1;;P8 7;;P10  SUBR; SUBROUTINE SETS TOP OF MOD. INDEX F4=8, F6=5.
14350	P7 "4.3+(700/P3)"; CHANGING MOD. INDEX
14375	P8 "P3+.3";
14400	P5 FUNC/2//E(10/11//12/1/)/2/1//2//@E/@E/2/1 X 22/2/;
14500	2 X 11/1//2/1 X 28/2//V( 1///2//1 X 33)/ *;
14600	P4 500/END;
14700	
14800	BRIT 12/DUPL 2/P10 1/P8 F5/P7 0/P9 0/P4 "*C/F 500"/ END;
14900	BRIT  25/P2 RHY/@B/16 X 16/8 /  4 16  *;
15000	P5 FUNC/@V/X 17/ *;
15100	P3 NOTES/@R/G5/E/F/G/C/BF4/A/BF/C5/D/BF4/C5/  D/EF/C/D/EF/F/D/EF;
15200	F/EF/F/G/F/D/G/F/E/D/E/F/G/F/E/G/  C  /FINE*;
15300	END;
15400	BRIT 31/P4 500/END;
15500	TEMPO/104*;
15600	EDIT    2 13 4;
15700	750
15800	BUZZ  /P2 RH/8//U( 8/16//X 3)/X 3 5/8 X 12/@U/@U/X 3/8 X 12;
15900	4/8//@U/X 9/4/-8/4/8///4/-8/8 X 5/  4 16 *;
16000	P3 NOTES/ P F2/G/A/G/A/BF/A/G/A/F/G/A/F/G/A/G/A/BF/A/G/A/D; BAR 4
16100	G-/C/F-/A/C/F-/E/F/C/D/E/D/E/F/E/D/E/C/D/E/C/D/E/D/E/F/R/E/R/D/R/C/R;BAR 11
16200	G+/C-/B/C/G/R/G+/A/G/A/B/A/B/C/R/C-/D/C/D/E/D/E/F/R/F/EF/D/C/BF/R/BF+;BAR 19
16300	C/BF/A/G/   F  /FINE*/P4 400/P5 F4/P10 1/P9 F6/END;
16400	INSERT  1 1 1;
16410	FINISH;R←0;REVINIT←1;
16566	SEG(F6);-1 0 1 7 -1 14  -1 50  .1 57  -1 64  -1 100;
16599	SEG(F4);0 0  1 4  1 14 .5 30  .2 70 0 100;
16612	SRATE←25000;MAG←512/SRATE;
16624	RCDFLG←-1;
16648	 PLAY;
16684	REV 0 25.6;REVINIT←0;
16700	*
16800	RUN;
16900	ARRAY F10,F11,F12(512);BIGBIT←4;P8←F5;SYNTH(F5);1 1 2 1 999;        
17000	 SYNTH(F3);1 1 999;                                                         
17100	 COMPILE;INSTRUMENT TRPT; OSCIL(P4,MAG/P2,P5);                              
17200	 INTRP(P6*P3*MAG,P7*P3*MAG,P5); COSCIL(U2,P3*MAG,F3);
17300	 COSCIL(U1,P3*MAG+U3,F3); OUTA←OUTA+U4;END;
17400	 FINISH;SYNTH(F2);99,.5,1,0,0                                               
17500	 .25,1,180,101.5                                                            
17600	 .25,1,180,101.5                                                            
17700	 .25,1,180,101.5                                                            
17800	 .25,1,180,101.5                                                            
17900	 .25,1,180,101.5                                                            
18000	 .25,1,180,101.5,999                                                        
18100	SEG(F10);0 0 1 20  1 90 .5 100;SEG(F11);.5 0 1 10 1 90 .5 100;
18200	SEG(F12);.5 0 1 10 1 92 0 100;
18300	SEG(F12);.5 50 1 370 1 92 0;